put (the number of this card - the number of first card of this background+1) into field "PageNumber"
end opencard
-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=55 top=22 right=56 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Name
-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=54 top=69 right=299 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mousewithin
if the OptionKey is down then
if the locktext of the target is true then
put true into DidUnlock
set locktext of target to false
else
put false into DidUnlock
end if
set the cursor to 2
repeat while (the OptionKey is down) and (item 1 of the rect of target <= item 1 of the mouseLoc) and (item 1 of the mouseLoc <= item 3 of the rect of target) and (item 2 of the rect of target <= item 2 of the mouseLoc) and (item 2 of the mouseLoc <= item 4 of the rect of target)
if the Mouse is down then
click at the MouseLoc
click at the ClickLoc
if the selection <> empty then
visual checkerboard to gray
visual checkerboard
go card selection
end if
end if
end repeat
if DidUnlock then
set the locktext of the target to true
end if
end if
end mousewithin
-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=306 right=331 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual wipe right very fast
go to previous card
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=306 right=331 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual wipe left very fast
go to next card
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=456 top=301 right=329 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual effect iris close
go first card
end mouseUp
-- part 10 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=311 top=69 right=299 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=332 top=306 right=326 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Resource Mover
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
ResCopy
end mouseUp
-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=255 top=311 right=327 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber
-- part 22 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=74 right=117 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual iris open to gray
visual iris close to black
visual iris open to gray
visual iris close
go background information
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=119 right=162 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual barn door close to black
visual barn door open
go back
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=164 right=207 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
go home
end mouseUp
-- part 25 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=209 right=252 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
domenu "open stack..."
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=254 right=297 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
visual venetian blinds to gray
visual venetian blinds to black
visual venetian blinds to gray
visual venetian blinds
go to background "Mini Hyperstation"
end mouseUp
-- part 27 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus Off
----- HyperTalk script -----
on mouseUp
if the optionkey is down then
pass mouseup
end if
If the short name of the target is "Menus On" then